home *** CD-ROM | disk | FTP | other *** search
/ Immoral Angel 1 / Immoral Angel 1.iso / mac / MSTR / PROGRAM / MOVIE13.DIR / 00065.ls < prev    next >
Encoding:
Text File  |  1997-07-10  |  587 b   |  24 lines
  1. on photoview nextprev
  2.   global photonum, photonummax, cursorwait
  3.   cursor(cursorwait)
  4.   set photonum to photonum + nextprev
  5.   if photonum >= (photonummax + 1) then
  6.     set photonum to 1
  7.   else
  8.     if photonum <= 0 then
  9.       set photonum to photonummax
  10.     end if
  11.   end if
  12.   set photo to photonum & "S.PICT"
  13.   set the picture of cast "scenePhoto" to the picture of cast photo
  14.   updateStage()
  15.   showphotocounter()
  16. end
  17.  
  18. on showphotocounter
  19.   global photonum, photonummax, cursorpointer
  20.   put photonum & " / " & photonummax into field "photoCnt"
  21.   updateStage()
  22.   cursor(cursorpointer)
  23. end
  24.